#!/usr/bin/perl -w
$|++;

use strict; 

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);

while(<STDIN>){
    if($_ =~ /^\[(\d+)\](.+)$/){
        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($1);
        $year += 1900;
        $mon += 1;
        if($sec <10){$sec="0".$sec};
        if($min<10){$min="0".$min};
        if($hour<10){$hour="0".$hour};
        if($mon<10){$mon="0".$mon};
        if($mday<10){$mday="0".$mday};
        print "\[$mday\/$mon\/$year $hour:$min:$sec\] $2\n";
    }
}

exit 0;

